VERSION 5.00
Object = "{8E73AB9F-B25C-47BD-BC19-540EAD351388}#6.15#0"; "binTool06.ocx"
Begin VB.Form FrmTongTich2Matran 
   BackColor       =   &H00808080&
   Caption         =   "TONG TICH HAI MA TRAN A VA B"
   ClientHeight    =   5985
   ClientLeft      =   6270
   ClientTop       =   3045
   ClientWidth     =   9405
   FillColor       =   &H000040C0&
   BeginProperty Font 
      Name            =   "VNI Aptima"
      Size            =   14.25
      Charset         =   0
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   Icon            =   "FrmTongTich2Matran.frx":0000
   LinkTopic       =   "Form1"
   MouseIcon       =   "FrmTongTich2Matran.frx":628A
   ScaleHeight     =   5985
   ScaleWidth      =   9405
   Begin binTool.bmButton CmdThoat 
      Height          =   615
      Left            =   240
      TabIndex        =   32
      Top             =   5160
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   1085
      BackFace        =   0
      ColorStyle      =   17
      ColorStart      =   16120056
      ColorEnd        =   11453636
      CaptionAlign    =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "VNI-Brush"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColorOver   =   192
      ColorOverStart  =   16711680
      ColorOverEnd    =   13893373
      OulineColor     =   11453636
      Caption         =   "FrmTongTich2Matran.frx":C514
      ItemText        =   "FrmTongTich2Matran.frx":C53E
      ItemTip         =   "FrmTongTich2Matran.frx":C55E
      ShadowColor     =   14737632
      ColorLighten    =   128
   End
   Begin binTool.bmButton CmdTich 
      Height          =   615
      Left            =   240
      TabIndex        =   31
      Top             =   4200
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   1085
      BackFace        =   0
      ColorStyle      =   17
      ColorStart      =   16120056
      ColorEnd        =   11453636
      CaptionAlign    =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "VNI-Brush"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColorOver   =   255
      ColorOverStart  =   16711680
      ColorOverEnd    =   13893373
      OulineColor     =   11453636
      Caption         =   "FrmTongTich2Matran.frx":C57E
      ItemText        =   "FrmTongTich2Matran.frx":C5D4
      ItemTip         =   "FrmTongTich2Matran.frx":C5F4
      ShadowColor     =   14737632
      ColorLighten    =   128
   End
   Begin binTool.bmButton CmdTong 
      Height          =   615
      Left            =   240
      TabIndex        =   30
      Top             =   3240
      Width           =   8895
      _ExtentX        =   15690
      _ExtentY        =   1085
      BackFace        =   0
      ColorStyle      =   17
      ColorStart      =   16120056
      ColorEnd        =   11453636
      CaptionAlign    =   0
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "VNI-Brush"
         Size            =   26.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColorOver   =   255
      ColorOverStart  =   16711680
      ColorOverEnd    =   13893373
      ColorDownStart  =   16576
      ColorDownEnd    =   16576
      OulineColor     =   11453636
      Caption         =   "FrmTongTich2Matran.frx":C614
      ItemText        =   "FrmTongTich2Matran.frx":C66A
      ItemTip         =   "FrmTongTich2Matran.frx":C68A
      ShadowColor     =   14737632
      ColorLighten    =   128
   End
   Begin VB.TextBox Txt33 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   8520
      TabIndex        =   29
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt32 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   7560
      TabIndex        =   28
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt31 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   6600
      TabIndex        =   27
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt30 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   8520
      TabIndex        =   26
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt29 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   7560
      TabIndex        =   25
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt28 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   6600
      TabIndex        =   24
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt27 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   8520
      TabIndex        =   23
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt26 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   7560
      TabIndex        =   22
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt25 
      Alignment       =   2  'Center
      BackColor       =   &H00FF80FF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   6600
      TabIndex        =   21
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt21 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   5280
      TabIndex        =   20
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt20 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   4320
      TabIndex        =   19
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt19 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   3360
      TabIndex        =   18
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt18 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   5280
      TabIndex        =   17
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt17 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   4320
      TabIndex        =   16
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt16 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   3360
      TabIndex        =   15
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt15 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   5280
      TabIndex        =   14
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt14 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   4320
      TabIndex        =   13
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt13 
      Alignment       =   2  'Center
      BackColor       =   &H0080FFFF&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   3360
      TabIndex        =   12
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt9 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   2040
      TabIndex        =   11
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt8 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   1080
      TabIndex        =   10
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt7 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   120
      TabIndex        =   9
      Top             =   2400
      Width           =   735
   End
   Begin VB.TextBox Txt6 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   2040
      TabIndex        =   8
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt5 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   1080
      TabIndex        =   7
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt4 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   120
      TabIndex        =   6
      Top             =   1680
      Width           =   735
   End
   Begin VB.TextBox Txt3 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   2040
      TabIndex        =   5
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt2 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   1080
      TabIndex        =   4
      Top             =   960
      Width           =   735
   End
   Begin VB.TextBox Txt1 
      Alignment       =   2  'Center
      BackColor       =   &H00FFC0C0&
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   510
      Left            =   120
      TabIndex        =   3
      Top             =   960
      Width           =   735
   End
   Begin binTool.bmLabel LblMTTT 
      Height          =   495
      Left            =   6600
      TabIndex        =   2
      Top             =   240
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Times New Roman"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16711935
      ForeColor       =   0
      Alignment       =   0
      Caption         =   "FrmTongTich2Matran.frx":C6AA
      ItemTip         =   "FrmTongTich2Matran.frx":C6D8
      BulletColor     =   0
      BulletOutlineWidth=   0
   End
   Begin binTool.bmLabel LblMatranB 
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   240
      Width           =   2655
      _ExtentX        =   4683
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "VNI Aptima"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   65535
      ForeColor       =   0
      Alignment       =   1
      Caption         =   "FrmTongTich2Matran.frx":C6F8
      ItemTip         =   "FrmTongTich2Matran.frx":C72A
      BulletColor     =   0
      BulletOutlineWidth=   0
   End
   Begin binTool.bmLabel LblMTA 
      Height          =   495
      Left            =   240
      TabIndex        =   0
      Top             =   240
      Width           =   2535
      _ExtentX        =   4471
      _ExtentY        =   873
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "VNI Aptima"
         Size            =   14.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BackColor       =   16711680
      ForeColor       =   0
      Alignment       =   0
      Caption         =   "FrmTongTich2Matran.frx":C74A
      ItemTip         =   "FrmTongTich2Matran.frx":C77C
      BulletColor     =   0
      BulletOutlineWidth=   0
   End
End
Attribute VB_Name = "FrmTongTich2Matran"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Text5_Change()

End Sub

Private Sub Text9_Change()

End Sub

Private Sub bmButton3_Click()

End Sub

Private Sub CmdThoat_Click()
End
End Sub

Private Sub CmdTich_Click()
    Dim i As Integer
    Dim j As Integer
    Dim k As Integer
    Dim n As Integer
    n = 3
    ReDim A(1 To n, 1 To n) As Integer
    ReDim B(1 To n, 1 To n) As Integer
    ReDim Tich(1 To n, 1 To n) As Integer
    A(1, 1) = Txt1
    A(1, 2) = Txt2
    A(1, 3) = Txt3
    A(2, 1) = Txt4
    A(2, 2) = Txt5
    A(2, 3) = Txt6
    A(3, 1) = Txt7
    A(3, 2) = Txt8
    A(3, 3) = Txt9
    B(1, 1) = Txt13
    B(1, 2) = Txt14
    B(1, 3) = Txt15
    B(2, 1) = Txt16
    B(2, 2) = Txt17
    B(2, 3) = Txt18
    B(3, 1) = Txt19
    B(3, 2) = Txt20
    B(3, 3) = Txt21
    For i = 1 To n
        For j = 1 To n
            Tich(i, j) = 0
            For k = 1 To n
                Tich(i, j) = Tich(i, j) + A(i, k) * B(k, j)
            Next
        Next
    Next
    Txt25 = Tich(1, 1)
    Txt26 = Tich(1, 2)
    Txt27 = Tich(1, 3)
    Txt28 = Tich(2, 1)
    Txt29 = Tich(2, 2)
    Txt30 = Tich(2, 3)
    Txt31 = Tich(3, 1)
    Txt32 = Tich(3, 2)
    Txt33 = Tich(3, 3)
End Sub

Private Sub CmdTong_Click()
    Dim i As Integer
    Dim j As Integer
    Dim n As Integer
    n = 3
    ReDim A(1 To n, 1 To n) As Integer
    ReDim B(1 To n, 1 To n) As Integer
    ReDim Tong(1 To n, 1 To n) As Integer
    A(1, 1) = Txt1
    A(1, 2) = Txt2
    A(1, 3) = Txt3
    A(2, 1) = Txt4
    A(2, 2) = Txt5
    A(2, 3) = Txt6
    A(3, 1) = Txt7
    A(3, 2) = Txt8
    A(3, 3) = Txt9
    B(1, 1) = Txt13
    B(1, 2) = Txt14
    B(1, 3) = Txt15
    B(2, 1) = Txt16
    B(2, 2) = Txt17
    B(2, 3) = Txt18
    B(3, 1) = Txt19
    B(3, 2) = Txt20
    B(3, 3) = Txt21
    For i = 1 To n
        For j = 1 To n
            Tong(i, j) = A(i, j) + B(i, j)
        Next
    Next
    Txt25 = Tong(1, 1)
    Txt26 = Tong(1, 2)
    Txt27 = Tong(1, 3)
    Txt28 = Tong(2, 1)
    Txt29 = Tong(2, 2)
    Txt30 = Tong(2, 3)
    Txt31 = Tong(3, 1)
    Txt32 = Tong(3, 2)
    Txt33 = Tong(3, 3)
    
End Sub

